home *** CD-ROM | disk | FTP | other *** search
Text File | 1999-02-25 | 25.9 KB | 1,110 lines |
- object ParamsForm: TParamsForm
- Left = 133
- Top = 56
- ActiveControl = SaveBtn
- BorderStyle = bsDialog
- Caption = 'Setup.inf'
- ClientHeight = 458
- ClientWidth = 527
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -14
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ShowHint = True
- PixelsPerInch = 120
- TextHeight = 16
- object PageControl: TPageControl
- Left = 0
- Top = 0
- Width = 527
- Height = 415
- ActivePage = LicenseDialog
- Align = alTop
- TabOrder = 0
- object MainWindow: TTabSheet
- Caption = 'General'
- object Label1: TLabel
- Left = 12
- Top = 219
- Width = 185
- Height = 16
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Left-top text:'
- end
- object Label5: TLabel
- Left = 12
- Top = 20
- Width = 185
- Height = 16
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Product Name:'
- end
- object Label6: TLabel
- Left = 12
- Top = 79
- Width = 185
- Height = 16
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Version:'
- end
- object Label7: TLabel
- Left = 12
- Top = 108
- Width = 185
- Height = 16
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Firm Name:'
- end
- object Label3: TLabel
- Left = 12
- Top = 143
- Width = 185
- Height = 16
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Top Color:'
- end
- object Label4: TLabel
- Left = 12
- Top = 178
- Width = 185
- Height = 16
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Bottom Color:'
- end
- object PaintBox: TPaintBox
- Left = 394
- Top = 138
- Width = 100
- Height = 65
- OnPaint = PaintBoxPaint
- end
- object Label12: TLabel
- Left = 128
- Top = 261
- Width = 67
- Height = 16
- Caption = 'Before Run'
- end
- object Label13: TLabel
- Left = 140
- Top = 295
- Width = 54
- Height = 16
- Caption = 'After Run'
- end
- object Label24: TLabel
- Left = 12
- Top = 49
- Width = 185
- Height = 16
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Internal Name:'
- end
- object SetupText: TEdit
- Left = 222
- Top = 214
- Width = 272
- Height = 24
- TabOrder = 6
- Text = 'Sea Battle 2.0 Setup'
- end
- object ProductName: TEdit
- Left = 222
- Top = 15
- Width = 272
- Height = 24
- TabOrder = 0
- Text = 'Sea Battle'
- end
- object ProductVersion: TEdit
- Left = 222
- Top = 74
- Width = 272
- Height = 24
- TabOrder = 2
- Text = '2.0'
- end
- object FirmName: TEdit
- Left = 222
- Top = 103
- Width = 272
- Height = 24
- TabOrder = 3
- Text = 'Media Art'
- end
- object TopColor: TBitBtn
- Left = 222
- Top = 138
- Width = 163
- Height = 31
- Hint = '16711680'
- Caption = 'TopColor'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- TabOrder = 4
- OnClick = ColorBtnClick
- end
- object BottomColor: TBitBtn
- Left = 222
- Top = 172
- Width = 163
- Height = 31
- Hint = '0'
- Caption = 'BottomColor'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- TabOrder = 5
- OnClick = ColorBtnClick
- end
- object BeforeRun: TEdit
- Left = 222
- Top = 256
- Width = 272
- Height = 24
- TabOrder = 7
- end
- object AfterRun: TEdit
- Left = 222
- Top = 290
- Width = 270
- Height = 24
- TabOrder = 8
- end
- object InternalName: TEdit
- Left = 222
- Top = 44
- Width = 272
- Height = 24
- TabOrder = 1
- Text = 'SeaBattle'
- end
- object AutoUninstall: TCheckBox
- Left = 222
- Top = 325
- Width = 272
- Height = 21
- Caption = 'Auto Uninstall in '#39'Add/Remove program'#39
- State = cbChecked
- TabOrder = 9
- end
- end
- object TextInfo: TTabSheet
- Caption = 'Texts'
- object Label18: TLabel
- Left = 89
- Top = 5
- Width = 109
- Height = 16
- Caption = 'Windows captions'
- end
- object Label2: TLabel
- Left = 5
- Top = 5
- Width = 44
- Height = 16
- Caption = 'Buttons'
- end
- object Label11: TLabel
- Left = 5
- Top = 300
- Width = 86
- Height = 16
- Caption = 'Uninstall string'
- end
- object Label17: TLabel
- Left = 315
- Top = 5
- Width = 36
- Height = 16
- Caption = 'Errors'
- end
- object Label19: TLabel
- Left = 207
- Top = 300
- Width = 98
- Height = 16
- Caption = 'Uninstall caption'
- end
- object NamePrev: TEdit
- Left = 5
- Top = 25
- Width = 65
- Height = 24
- TabOrder = 0
- Text = '< Back'
- end
- object NameNext: TEdit
- Left = 5
- Top = 54
- Width = 65
- Height = 24
- TabOrder = 1
- Text = 'Next >'
- end
- object NameCancel: TEdit
- Left = 5
- Top = 84
- Width = 65
- Height = 24
- TabOrder = 2
- Text = 'Cancel'
- end
- object NameYes: TEdit
- Left = 5
- Top = 113
- Width = 65
- Height = 24
- TabOrder = 3
- Text = 'Yes'
- end
- object NameNo: TEdit
- Left = 5
- Top = 143
- Width = 65
- Height = 24
- TabOrder = 4
- Text = 'No'
- end
- object NameBrowse: TEdit
- Left = 5
- Top = 172
- Width = 65
- Height = 24
- TabOrder = 5
- Text = 'Browse...'
- end
- object NameFinish: TEdit
- Left = 5
- Top = 202
- Width = 65
- Height = 24
- TabOrder = 6
- Text = 'Finish'
- end
- object LicenseCaption: TEdit
- Left = 89
- Top = 54
- Width = 209
- Height = 24
- TabOrder = 9
- Text = 'Software License Agreement'
- end
- object UserCaption: TEdit
- Left = 89
- Top = 84
- Width = 209
- Height = 24
- TabOrder = 10
- Text = 'User Information'
- end
- object DirectoryCaption: TEdit
- Left = 89
- Top = 113
- Width = 209
- Height = 24
- TabOrder = 11
- Text = 'Choose Destination Location'
- end
- object CopyingCaption: TEdit
- Left = 89
- Top = 172
- Width = 209
- Height = 24
- TabOrder = 13
- Text = 'Copying...'
- end
- object FinishCaption: TEdit
- Left = 89
- Top = 202
- Width = 209
- Height = 24
- TabOrder = 14
- Text = 'Setup Complete'
- end
- object GroupCaption: TEdit
- Left = 89
- Top = 143
- Width = 209
- Height = 24
- TabOrder = 12
- Text = 'Select program folder'
- end
- object Memo10: TMemo
- Left = 4
- Top = 320
- Width = 508
- Height = 27
- Lines.Strings = (
- 'Do you want to uninstall Sea Battle 2.0 ?')
- TabOrder = 27
- WordWrap = False
- end
- object ErrorFile: TEdit
- Left = 309
- Top = 25
- Width = 203
- Height = 24
- TabOrder = 17
- Text = 'File Copy Error: %s'
- end
- object ErrorShortcut: TEdit
- Left = 309
- Top = 54
- Width = 203
- Height = 24
- TabOrder = 18
- Text = 'Shortcut creating error: %s'
- end
- object ErrorMissing: TEdit
- Left = 309
- Top = 84
- Width = 203
- Height = 24
- TabOrder = 19
- Text = 'Source file missing: %s'
- end
- object ErrorAbortQuestion: TEdit
- Left = 309
- Top = 113
- Width = 203
- Height = 24
- TabOrder = 20
- Text = 'Abort Setup ?'
- end
- object ErrorNotCompleted: TEdit
- Left = 309
- Top = 143
- Width = 203
- Height = 24
- TabOrder = 21
- Text = 'Setup not completed'
- end
- object ErrorAborted: TEdit
- Left = 309
- Top = 172
- Width = 203
- Height = 24
- TabOrder = 22
- Text = 'Setup aborted'
- end
- object ErrorDiskSpace: TEdit
- Left = 309
- Top = 202
- Width = 203
- Height = 24
- TabOrder = 23
- Text = 'Disk space required: %d kb. Please choose another disk'
- end
- object NameRegister: TEdit
- Left = 5
- Top = 231
- Width = 65
- Height = 24
- TabOrder = 7
- Text = 'Register'
- end
- object URL: TEdit
- Left = 89
- Top = 231
- Width = 209
- Height = 24
- Hint = 'Clear this field if you don'#39't want to register'
- TabOrder = 15
- end
- object ErrorInternetBrowser: TEdit
- Left = 309
- Top = 231
- Width = 203
- Height = 24
- TabOrder = 24
- Text = 'Error opening Internet browser'
- end
- object ErrorKeyword: TEdit
- Left = 309
- Top = 261
- Width = 203
- Height = 24
- TabOrder = 25
- Text = 'Wrong keyword'
- end
- object CaptionUninstall: TEdit
- Left = 309
- Top = 290
- Width = 203
- Height = 24
- TabOrder = 26
- Text = 'Uninstall'
- end
- object WelcomeCaption: TEdit
- Left = 89
- Top = 25
- Width = 209
- Height = 24
- TabOrder = 8
- Text = 'Welcome!'
- end
- object CustomCaption: TEdit
- Left = 89
- Top = 261
- Width = 209
- Height = 24
- TabOrder = 16
- Text = 'Custom setup'
- end
- end
- object Files: TTabSheet
- Caption = 'Files and icons'
- object Label8: TLabel
- Left = 5
- Top = 10
- Width = 91
- Height = 16
- Caption = 'File list to copy:'
- end
- object Label9: TLabel
- Left = 5
- Top = 192
- Width = 80
- Height = 16
- Caption = 'Group Name:'
- end
- object Label10: TLabel
- Left = 5
- Top = 218
- Width = 54
- Height = 16
- Caption = 'Icons list:'
- end
- object GroupName: TEdit
- Left = 158
- Top = 187
- Width = 355
- Height = 24
- TabOrder = 1
- Text = 'Media Art\Sea Battle'
- end
- object ListFiles: TMemo
- Left = 5
- Top = 30
- Width = 503
- Height = 144
- Lines.Strings = (
- 'readme.txt=%HDPATH%'
- 'sea.ssm=%HDPATH%\sea.exe')
- TabOrder = 0
- WordWrap = False
- end
- object ListIcons: TMemo
- Left = 5
- Top = 241
- Width = 508
- Height = 100
- Lines.Strings = (
- 'Sea Battle 2.0 =%HDPATH%\Sea.exe'
- 'Sea Battle 2.0 Readme=%HDPATH%\Readme.txt'
- 'Sea Battle 2.0 Uninstall=%WINDOWS%\maUninst,,%InternalName%')
- TabOrder = 2
- WordWrap = False
- end
- end
- object Registry: TTabSheet
- Caption = 'Registry'
- object Label20: TLabel
- Left = 2
- Top = 1
- Width = 418
- Height = 16
- Caption = '[HKEY_CURRENT_USER\Software\%FirmName%\%InternalName%]'
- end
- object Label21: TLabel
- Left = 2
- Top = 20
- Width = 133
- Height = 16
- Caption = '"Version"=%Version%'
- end
- object Label22: TLabel
- Left = 2
- Top = 39
- Width = 143
- Height = 16
- Caption = '"CDPath"=%CDPATH%'
- end
- object Label23: TLabel
- Left = 2
- Top = 59
- Width = 145
- Height = 16
- Caption = '"HDPath"=%HDPATH%'
- end
- object RegList: TMemo
- Left = 1
- Top = 79
- Width = 513
- Height = 267
- Lines.Strings = (
- '[HKEY_CURRENT_USER\Software\Media Art\SeaBattle\Main]'
- '"Version"="2.0 Demo"'
- '"HDPath"="%HDPATH%"'
- '"CDPath"="%CDPATH%"'
- '"WinLimit"="3"'
- '"FieldSize"="10"'
- '"Sound"="On"'
- '"Sound Volume"="0"'
- '"Effects"="On"'
- '"Effects Volume"="0"'
- ''
- '[HKEY_CURRENT_USER\Software\Media Art\SeaBattle\Ships]'
- '"Moving"="Yes"'
- '"Submarine"="Yes"'
- '"1"="1,10,5,0,0,0"'
- '"2"="1,10,5,5,0,0"'
- '"3"="1,10,5,5,3,0"'
- '"4"="1,10,5,5,3,2"')
- ScrollBars = ssVertical
- TabOrder = 0
- WordWrap = False
- end
- object Import: TButton
- Left = 414
- Top = 42
- Width = 99
- Height = 31
- Caption = 'Import *.reg'
- TabOrder = 1
- OnClick = ImportClick
- end
- end
- object WelcomeDialog: TTabSheet
- Caption = 'Welcome'
- object Image1: TImage
- Left = 10
- Top = 5
- Width = 148
- Height = 320
- end
- object Memo1: TMemo
- Left = 172
- Top = 5
- Width = 341
- Height = 320
- Color = clBtnFace
- Lines.Strings = (
- 'Welcome to the %ProductName% Setup program. This '
- 'program will install %ProductName% on your computer.'
- ''
- 'It is strongly recommended that you close all Windows '
- 'programs before running this Setup program.'
- ''
- 'Click Cancel to quit Setup and then close all programs '
- 'you have running. Click Next to continue with Setup '
- 'program.'
- ''
- 'WARNING: This program is protected by copyright law '
- 'and international treaties.'
- ''
- 'Unauthorized reproduction or distribution of this program, '
- ' or any portion of it, may result in severe civil and '
- 'criminal penalties, and will be procecuted to the '
- 'maximum extent possible under law.')
- TabOrder = 0
- end
- end
- object LicenseDialog: TTabSheet
- Caption = 'License'
- object Image2: TImage
- Left = 15
- Top = 10
- Width = 39
- Height = 39
- AutoSize = True
- end
- object Memo2: TMemo
- Left = 74
- Top = 10
- Width = 429
- Height = 40
- Color = clBtnFace
- Lines.Strings = (
- 'Please read the following Licence Agreement. Press the PageDown '
- 'key to see the rest of the agreement.')
- TabOrder = 0
- end
- object Memo4: TMemo
- Left = 15
- Top = 290
- Width = 488
- Height = 51
- Color = clBtnFace
- Lines.Strings = (
-
- 'Do you accept all the terms of the preceding License Agreement? ' +
- 'If you choose '
-
- 'No, Setup will Close. To install %ProductName%, you must accept ' +
- 'this '
- 'agreement.')
- TabOrder = 2
- end
- object License: TMemo
- Left = 15
- Top = 54
- Width = 488
- Height = 233
- Lines.Strings = (
- ' Welcome to Sea Battle 2.0 !'
- ' As with most software, Sea Battle includes a Warranty'
- ' THIS SOFTWARE AND THE ACCOMPANYING FILES'
- ' ARE DISTRIBUTED "AS-IS".'
- ''
- ' Below you can get familiar with License Agreement and'
- ' agree with it'#39's conditions by clicking "Yes" button,'
- ' or refuse by clicking "No" button.'
- ''
- ' Note it is DEMO version. Some functions will be locked.'
- ' Regarding full version of this software please contact owner'
- ' via e-mail: info@mdart.com'
- ''
- ''
- ' Copyright/License/Warranty'
- ''
- ' Copyright'
- ' Sea Battle 2.0 Copyright (c) 1998-99 by Media Art.'
- ' All rights reserved.'
- ''
- ' License Agreement'
- ' You should carefully read the following terms and'
- ' conditions before using this software. Unless you have'
- ' a different license agreement signed by Media Art Ltd.,'
- ' your use of this software indicates your acceptance'
- ' of this license agreement and warranty.'
- ''
- ' All rights not expressly granted in this license agreement'
- ' are reserved entirely to Media Art Ltd.'
- ''
- ' Governing Law'
- ' This agreement shall be governed by the international laws.'
- ''
- ' Disclaimer of Warranty'
- ' THIS SOFTWARE AND THE ACCOMPANYING FILES ARE SOLD "AS IS"'
- ' AND WITHOUT WARRANTIES AS TO PERFORMANCE OR '
- 'MERCHANTABILITY'
- ' OR ANY OTHER WARRANTIES WHETHER EXPRESSED OR IMPLIED.'
- ' Because of the various hardware and software environments'
- ' into which Sea Battle may be put, NO WARRANTY OF FITNESS'
- ' FOR A PARTICULAR PURPOSE IS OFFERED.')
- ScrollBars = ssVertical
- TabOrder = 1
- end
- end
- object UserDialog: TTabSheet
- Caption = 'User information'
- object Image3: TImage
- Left = 10
- Top = 5
- Width = 148
- Height = 320
- AutoSize = True
- end
- object Memo5: TMemo
- Left = 172
- Top = 5
- Width = 331
- Height = 75
- Color = clBtnFace
- Lines.Strings = (
- 'Please type your name (required) and name of the '
- 'company you work for (optional).')
- TabOrder = 0
- end
- object UserNameLabel: TEdit
- Left = 172
- Top = 108
- Width = 149
- Height = 24
- Color = clBtnFace
- TabOrder = 1
- Text = 'Your name:'
- end
- object SerialNumberLabel: TEdit
- Left = 172
- Top = 187
- Width = 149
- Height = 24
- Color = clBtnFace
- TabOrder = 2
- Text = 'Keyword:'
- end
- object Memo6: TMemo
- Left = 172
- Top = 231
- Width = 331
- Height = 95
- Color = clBtnFace
- Lines.Strings = (
- ' ')
- TabOrder = 6
- end
- object OrganizationLabel: TEdit
- Left = 172
- Top = 148
- Width = 149
- Height = 24
- Color = clBtnFace
- TabOrder = 3
- Text = 'Organization:'
- end
- object KeywordNeeded: TCheckBox
- Left = 325
- Top = 197
- Width = 149
- Height = 21
- Caption = 'Required'
- TabOrder = 5
- OnClick = KeywordNeededClick
- end
- object Protection: TMemo
- Left = 325
- Top = 84
- Width = 178
- Height = 109
- Hint = '#Page,#Line,#Word,Keyword'
- TabOrder = 4
- end
- object SetupDat: TCheckBox
- Left = 172
- Top = 330
- Width = 120
- Height = 21
- Caption = 'SetupDat'
- TabOrder = 7
- end
- end
- object CustomDialog: TTabSheet
- Caption = 'Custom'
- object Image8: TImage
- Left = 10
- Top = 5
- Width = 148
- Height = 320
- AutoSize = True
- end
- object Label14: TLabel
- Left = 178
- Top = 220
- Width = 223
- Height = 16
- Caption = 'Radio Buttons (if flag text is not empty)'
- end
- object CustomMemo: TMemo
- Left = 172
- Top = 5
- Width = 341
- Height = 75
- Color = clBtnFace
- Lines.Strings = (
- 'Please select components you wish to install')
- TabOrder = 0
- end
- object FlagText1: TEdit
- Left = 177
- Top = 240
- Width = 248
- Height = 24
- TabOrder = 1
- Text = 'FlagText1'
- end
- object FlagText2: TEdit
- Left = 177
- Top = 270
- Width = 248
- Height = 24
- TabOrder = 2
- Text = 'FlagText2'
- end
- object FlagText3: TEdit
- Left = 177
- Top = 299
- Width = 248
- Height = 24
- TabOrder = 3
- Text = 'FlagText3'
- end
- object Flag1: TEdit
- Left = 430
- Top = 240
- Width = 82
- Height = 24
- TabOrder = 4
- Text = 'Flag1'
- end
- object Flag2: TEdit
- Left = 430
- Top = 270
- Width = 82
- Height = 24
- TabOrder = 5
- Text = 'Flag2'
- end
- object Flag3: TEdit
- Left = 430
- Top = 299
- Width = 82
- Height = 24
- TabOrder = 6
- Text = 'Flag3'
- end
- end
- object ChooseDir: TTabSheet
- Caption = 'Destination'
- object Image4: TImage
- Left = 10
- Top = 5
- Width = 148
- Height = 320
- AutoSize = True
- end
- object Bevel2: TBevel
- Left = 172
- Top = 236
- Width = 336
- Height = 88
- end
- object Memo7: TMemo
- Left = 172
- Top = 5
- Width = 331
- Height = 198
- Color = clBtnFace
- Lines.Strings = (
- 'Setup will install %ProductName% in the following '
- 'directory.'
- ''
- 'To install to this directory, click Next.'
- ''
- 'To install to a different directory, click Browse and '
- 'select another directory.'
- ''
- 'You can choose not to install %ProductName%, by '
- 'clicking Cancel to exit Setup.')
- TabOrder = 0
- end
- object InstallDirLabel: TEdit
- Left = 187
- Top = 226
- Width = 164
- Height = 24
- Color = clBtnFace
- TabOrder = 1
- Text = 'Destination Directory'
- end
- object DefaultDir: TEdit
- Left = 187
- Top = 256
- Width = 311
- Height = 24
- Color = clBtnFace
- TabOrder = 2
- Text = '%ProgramFiles%\%ProductName%'
- end
- object Button1: TButton
- Left = 406
- Top = 288
- Width = 92
- Height = 31
- Caption = 'Browse'
- TabOrder = 3
- end
- end
- object SelectFolder: TTabSheet
- Caption = 'Folder'
- object Image7: TImage
- Left = 10
- Top = 5
- Width = 148
- Height = 320
- AutoSize = True
- end
- object Memo9: TMemo
- Left = 167
- Top = 5
- Width = 341
- Height = 114
- Lines.Strings = (
- 'Setup will add program icons to the Program folder '
- 'listed below. You may type a new folder name, or select '
- 'one from the existing Folders list. Click Next to continue.')
- TabOrder = 0
- end
- end
- object CopyingDialog: TTabSheet
- Caption = 'Process'
- object Image5: TImage
- Left = 10
- Top = 5
- Width = 148
- Height = 320
- AutoSize = True
- end
- object Process1: TEdit
- Left = 192
- Top = 148
- Width = 316
- Height = 24
- TabOrder = 1
- Text = 'Copying files'
- end
- object Process2: TEdit
- Left = 192
- Top = 182
- Width = 316
- Height = 24
- TabOrder = 2
- Text = 'Creating program group'
- end
- object Process3: TEdit
- Left = 192
- Top = 217
- Width = 316
- Height = 24
- TabOrder = 3
- Text = 'Creating icons'
- end
- object Process4: TEdit
- Left = 192
- Top = 251
- Width = 316
- Height = 24
- TabOrder = 4
- Text = 'Updating system information'
- end
- object Memo3: TMemo
- Left = 167
- Top = 5
- Width = 341
- Height = 114
- Lines.Strings = (
- 'Please wait while Setup copying files. If you click Cancel, '
- ' install will canceled immediatly.')
- TabOrder = 0
- end
- end
- object ExitDialog: TTabSheet
- Caption = 'Exit'
- object Image6: TImage
- Left = 10
- Top = 5
- Width = 148
- Height = 320
- AutoSize = True
- end
- object Memo8: TMemo
- Left = 167
- Top = 5
- Width = 341
- Height = 321
- Lines.Strings = (
- 'Setup has finished copying files to your computer. '
- ''
- 'Click '#39'Finish'#39' to exit.')
- TabOrder = 0
- end
- object Restart: TCheckBox
- Left = 167
- Top = 361
- Width = 120
- Height = 21
- Caption = 'Restart required'
- TabOrder = 2
- end
- object RestartText: TEdit
- Left = 169
- Top = 332
- Width = 339
- Height = 24
- TabOrder = 1
- Text = 'Restart now'
- end
- end
- end
- object ExitBtn: TButton
- Left = 433
- Top = 417
- Width = 93
- Height = 31
- Caption = 'Exit'
- ModalResult = 2
- TabOrder = 3
- OnClick = ExitBtnClick
- end
- object LoadBtn: TBitBtn
- Left = 0
- Top = 418
- Width = 149
- Height = 31
- Caption = 'Load setup.inf'
- TabOrder = 1
- OnClick = LoadBtnClick
- end
- object SaveBtn: TBitBtn
- Left = 158
- Top = 418
- Width = 134
- Height = 31
- Caption = 'Save setup.inf'
- TabOrder = 2
- OnClick = SaveBtnClick
- end
- object OpenDialog: TOpenDialog
- DefaultExt = 'inf'
- Filter = 'Setup inf|setup*.inf|All files|*.*'
- Options = []
- Title = 'Open .inf from'
- Left = 48
- Top = 304
- end
- object ColorDialog: TColorDialog
- Ctl3D = True
- Options = [cdFullOpen, cdAnyColor]
- Left = 80
- Top = 304
- end
- object OpenReg: TOpenDialog
- DefaultExt = '*.reg'
- Filter = '*.reg|*.reg'
- Options = [ofHideReadOnly, ofNoChangeDir, ofFileMustExist]
- Title = 'Registry file import'
- Left = 16
- Top = 304
- end
- object SaveDialog: TSaveDialog
- DefaultExt = 'inf'
- FileName = 'C:\DemoSea2Setup.eng\setup.inf'
- Filter = 'Setup inf file|Setup*.inf'
- Options = []
- Title = 'Save setup.inf to'
- Left = 112
- Top = 304
- end
- end
-